home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_1[cbm_1983].nbz / unit11prog (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  767 b   |  44 lines
  1. 10 REM MYSTERY PROGRAM
  2. 20 PRINT"WHAT IS YOUR"
  3. 30 INPUT" NAME";X$
  4. 40 PRINT
  5. 50 PRINT"HELLO ";X$
  6. 60 PRINT
  7. 70 PRINT"PLEASE ANSWER THESE"
  8. 80 PRINT"SIMPLE QUESTIONS"
  9. 90 SC=0
  10. 100 PRINT
  11. 110 PRINT"WHAT IS THE CAPITAL"
  12. 120 INPUT"OF FRANCE";A$
  13. 130 IF A$="PARIS" THEN160
  14. 140 PRINT"WRONG.IT'S PARIS"
  15. 150 GOTO190
  16. 160 PRINT"THAT'S RIGHT! WELL"
  17. 170 PRINT "DONE,";X$
  18. 180 SC=SC+1
  19. 190 PRINT
  20. 200 PRINT"WHO DISCOVERED"
  21. 210 INPUT"AMERICA";A$
  22. 220 IFA$="COLUMBUS"THEN270
  23. 230 PRINT"SORRY ";X$
  24. 240 PRINT"THAT'S WRONG. IT WAS"
  25. 250 PRINT"COLUMBUS"
  26. 260 GOTO300
  27. 270 PRINT"CORRECT.";X$;" IS"
  28. 280 PRINT"A HISTORY EXPERT!"
  29. 290 SC=SC+1
  30. 300 PRINT
  31. 305 IF SC=2THEN390
  32. 310 IF SC=1 THEN350
  33. 320 PRINT"YOU DIDN'T GET ANY"
  34. 330 PRINT"QUESTIONS RIGHT."
  35. 340 GOTO370
  36. 350 PRINT"YOU ONLY GOT ONE"
  37. 360 PRINT"QUESTION RIGHT."
  38. 370 PRINT"TRY AGAIN."
  39. 380 GOTO90
  40. 390 PRINT"THAT WAS EXCELLENT,"
  41. 400 PRINTX$;". YOU GOT"
  42. 410 PRINT"BOTH QUESTIONS RIGHT"
  43. 420 STOP
  44.